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FOREWORD 


This  report  presents  the  results  of  a study  project  to  demonstrate  the 
feasibility  of  achieving  a pre-programming  capability  for  an  automated  tape 
lay-up  system  (ATLS)  developed  separately  by  the  Army.  The  findings  represent 
the  first  step  in  achieving  the  long  range  objective  to  fully  develop  the  nec- 
essary technology  for  the  automated  preparation  of  program  manuscripts  of  he- 
licopter rotor  blades  from  engineering  data,  for  subsequent  manufacture  on  the 
ATLS. 

The  study  was  sponsored  by  the  U.S.  Army  Aviation  Systems  Command,  Pro- 
duct Engineering  Division,  under  contract  DAAJ01 -76-C-0040.  Mr.  Dan  Haugan 
and  Ms.  Bernestine  Page  served  as  Project  Monitors. 

This  project  was  accomplished  as  part  of  the  U.S.  Army  Aviations  Systems 
Command  Manufacturing  Technology  program.  The  primary  objective  of  this  pro- 
gram is  to  develop,  on  a timely  basis,  manufacturing  processes,  techniques, 
and  equipment  for  use  in  production  of  Army  materiel.  Comments  are  solicited 
on  the  potential  utilization  of  the  information  contained  herein  as  applied  to 
present  and/or  future  production  programs.  Such  comments  should  be  sent  to: 
U.S.  Army  Aviation  Systems  Command,  ATTN:  DRSAV-EXT,  P.0.  Box  209,  St.  Louis, 
Missouri  63166. 

The  ten  month  effort  covered  by  this  report  began  in  November  1975  and 
was  concluded  in  September  1976.  The  work  was  performed  by  G.  P.  Putnam, 

C.  A.  Wells,  and  R.  N.  Little  from  I IT  Research  Institute  (IITRI)  with  the  co- 
operation of  M.  J.  Rohner  and  E.  Frank  of  the  Boeing-Vertol  Company. 

Respectfully  submitted, 

(j\  )1 

R.  N.  Little 

Senior  Engineer 


Management  and  Computer  Sciences  Division 
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1.  INTRODUCTION 


The  development  of  the  concept  of  building  helicopter  rotor  blades  from 
advanced  composites  resulted  in  the  need  for  automating  laborious  hand  methods 
for  constructing  blade  components.  Toward  this  end,  the  U.S.  Army  Aviation 
Systems  Command  funded  a project  with  Goldsworthy  Engineering,  Inc.  (Contract 
DAAJ01-72-C-0610  (PIG))  to  build  a suitable  machine  for  laying  fiberglass 
epoxy  tape  in  various  widths  and  fiber  orientations.  The  completed  machine, 
called  an  Automated  Tape  Layup  System  (ATLS),  was  installed  at  the  Boeing- 
Vertol  facility  in  Philadelphia,  PA. 

The  machine  is  numerically  controlled,  and  it  was  expected  that  the  NC 
tape  control  information  would  be  created  through  a digitizing  process  built 
into  the  control  system  furnished  by  Allen  Bradley.  However,  it  was  soon  ap- 
parent that  this  process  would  also  be  extremely  laborious,  and  wasteful  of 
machine  time.  Therefore,  it  became  appropriate  to  inquire  into  alternative 
methods  for  creating  the  control  information  through  preprogramming. 

Boeing  began  to  use  hand  methods  to  pre-program  the  control  information, 
but  this  was  also  time  consuming  and  susceptible  to  human  error  due  to  the 
manual  handling  and  generating  of  large  quantities  of  data. 

Computer  assisted  pre-programming  has  been  used  successfully  in  many 
other  applications  of  numerical  control  so  it  was  natural  to  consider  this 
method  in  this  instance.  Consequently  the  project  reported  herein  was  estab- 
lished to  investigate  the  feasibility  of  pre- programming  the  ATLS  using  com- 
puterized methods. 

The  following  sections  describe  this  investigation  and  the  results  ob- 
tained, including  technical  and  economic  factors.  Conclusions  drawn  from  the 
investigation  and  recommendations  for  further  work  complete  the  report.  De- 
tailed technical  information  is  relegated  to  appendices. 
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2.  SYSTFM  ASSESSMENT 


At  the  outset  of  the  project,  an  inspection  of  the  ATLS  was  conducted  at 
the  Boeing -Vertol  facility  in  Philadelphia.  IITRI,  Boeing  staff  and  the 
AVSCOM  project  monitor  were  present.  The  design  and  manufacturing  steps  to 
produce  a fiberglass  helicopter  blade  were  reviewed.  These  are,  briefly: 

a.  Produce  airfoil  design. 

b.  Produce  structure  design. 

c.  Produce  detailed  component  design. 

d.  Produce  tooling  design. 

e.  Produce  NC  tapes  for  ATLS  components. 

f.  Build  tooling  and  individual  components. 

g.  Preform  components. 

h.  Assemble  components  in  mold. 

i.  Cure  assembly  in  mold. 

j.  Finish  assembly. 

Numerous  inspection  and  quality  control  procedures  are  used  throughout  to  in- 
sure qual i ty  resul ts . 

The  focus  of  this  investigation  was  on  step  e,  the  production  of  NC  tapes 
for  ATLS  components.  To  demonstrate  feasibility,  it  was  deemed  adequate  to 
produce  NC  tapes  for  a component  known  as  a "root  loop"  in  the  CH-47C  spar 
subassembly.  Prior  to  preforming  (step  g),  the  root  loop  looks  like  a 30  ft. 
long  hairpin  whose  thickness  tapers  to  just  a few  plies  of  tape  at  the  open 
end.  The  heavy  thick  loop  end  supports  the  full  centrifugal  force  of  the  ro- 
tating blade  and  therefore  consists  of  many  (144  for  the  CH-47C)  layers  of 
fiberglass. 

The  original  concept  of  the  investigation  was  to  compare  digitizing  to 
computerized  pre-programming  as  an  alternative  NC  tape  preparation  method. 
However,  Boeing  could  not  supply  digitized  data  due  to  not  being  able  to  use 
the  digitizer.  They  had,  however,  used  manual  methods  to  prepare  test  ver- 
sions of  "root  loop"  NC  tapes,  and  this  information  was  substituted  as  the 
baseline  for  study  comparisons.  Copies  of  a set  of  hand  programmed  NC  tapes 
were  given  to  IITRI  for  further  detailed  analysis  regarding  format,  function 
codes,  and  process  sequences  for  the  part  under  consideration. 
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The  three  functional  areas  included  in  this  phase  of  the  project  were: 

1)  Engineering  design  functions,  2)  Special  tooling,  3)  The  features  of  the 
"ATLS"  and  how  they  are  currently  being  used  in  the  manufacturing  process. 

2. 1 Engineering  Design  for  Fiberglass  Helicopter  Blades 

The  aerodynamic  design  of  the  helicopter  blade  is  supplied  to  the  engi- 
neering group  at  Boeing  that  is  responsible  for  the  final  design  layout. 

This  design  is  in  the  form  of  a drawing  representing  the  outside  dimensions  at 
various  cross  sections  throughout  the  length  of  the  blade.  At  this  point,  the 
root  section  of  the  blade  is  not  included  in  the  design. 

The  design  process  continues  with  the  development  of  cross  sectional  areas 
and  blade  wall  thicknesses  based  on  considerations  of  the  rotational  forces  to 
be  encountered  and  the  number  of  longitudinal  fibers  of  glass  required  to  give 
the  desired  strength.  These  considerations  along  with  mechanical  mounting 
considerations  are  used  to  extend  the  design  to  the  root  section  and  strap  as- 
semblies of  the  blades.  At  this  point,  the  blade  is  composed  of  several  sepa- 
rate longitudinal  component  parts  which  will  be  manufactured  separately  and 
later  joined  into  a single  component. 

The  output  of  this  design  process  is  a drawing  depicting  the  detailed 
cross  sections  including  both  inside  and  outside  dimensions  as  well  as  the 
boundaries  of  the  various  individual  longitudinal  component  parts.  Also  in- 
cluded on  this  drawing  is  a detailed  layout  of  the  fiberglass  tape  plies  for 
the  individual  components.  This  includes  the  number  of  plies  at  each  cross 
section  which  therefore  specifies  the  longitudinal  taper  of  component  parts. 

2.2  Special  Tooling  and  Blade  Manufacture 

Certain  of  the  component  parts  of  the  final  blade  are  layed  up  on  special 
mandrels  created  for  this  purpose.  The  design  of  these  mandrels  follows  di- 
rectly from  the  design  of  the  specific  blade  component.  The  remainder  of  the 
blade  is  layed  up  on  a specially  fabricated  "rubber  balloon"  that  generally 
conforms  to  the  shape  of  the  desired  inside  dimensions  of  the  blade  when  in- 
flated. 
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This  and  the  remaining  component  parts  are  assembled  in  a mold  that  has 
been  machined  to  conform  to  the  outside  dimensions  specified  in  the  original 
aerodynamic  design.  The  mold  is  then  closed,  the  balloon  core  is  inflated  to 
force  the  fiberglass  against  the  mold,  and  the  mold  is  electrically  heated  to 
facilitate  curing  of  the  epoxy.  After  curing,  the  balloon  core  is  deflated 
and  extracted  through  the  open  end  of  the  blade.  The  blade  is  then  removed 
from  the  mold  and  ready  for  the  addition  of  final  components  such  as  the  hard 
nickel  leading  edge. 

2 . 3 The  Automated  Layup  System  (ATLS) 

Detailed  operation  data  was  collected  on  the  ATLS.  During  the  trip  to 
Boeing  Vertol  , the  IITRI  project  staff  had  the  opportunity  to  observe  the  ATLS 
during  test  maneuvers.  The  current  use  was  also  discussed  with  the  group  at 
Boeing.  It  was  learned  that  Boeing  is  currently  not  using  the  digitizina 
function  of  the  Allen  Bradley  7300  controller.  Control  tapes  are  produced  by 
hand  coding"  the  various  controller  command  codes  directly.  Boeing  Computer 
Services  has  provided  them  with  the  software  to  punch  the  control  tape.  At 
present,  this  software  system  performs  only  rudimentary  end-of-card  formatting 
and  character  code  conversion  before  punching  the  control  tape. 

The  automated  layup  proceeds  as  follows:  first,  certain  of  the  component 
parts  are  selected  as  candidates  to  be  produced  on  the  ATLS.  Initially,  this 
was  limited  to  the  root  end  strap  component.  A mandrel  is  developed  based  on 
the  drawing  developed  in  the  design  effort.  This  appears  to  be  a relatively 
straightforward  application  of  the  inside  dimensions  that  were  develoDed  for 
the  various  cross  sections.  The  mandrel  is  then  assumed  to  be  mounted  on  the 
ATLS  with  a specific  orientation  and  the  "hand  coding"  of  machine  functions 
proceeds.  This  coding  is  done  on  specially  prepared  manuscript  forms  which 
are  reproduced  with  certain  fixed  information  already  filled  in.  It  is  from 
these  forms  that  the  machine  codes  are  punched  into  cards  for  input  to  the 
translation  software  that  produces  the  control  tape.  The  control  tape  can 
then  be  tested  on  the  ATLS  and  any  corrections  can  be  made  by  iterating  the 
above  process. 

At  the  current  early  stages  of  use,  a number  of  the  features  of  the  ATLS 
are  not  being  used  in  the  programming  of  the  "root  loop"  strap  component. 
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a.  Blade  component  selection  is  limited  to  simple  components 
that  can  be  represented  and  programmed  in  two  dimensions. 

This  limitation  is  caused  by  the  extreme  complexity  of  the 
manual  programming  task  at  the  machine  control  code  level. 

b.  The  mounting  of  the  mandrel  on  the  ATLS  is  limited  to  those 
orientations  that  do  not  introduce  any  extra  axis  of  motion 
into  the  program.  Again,  this  is  the  result  of  the  complex- 
ity of  handling  three  simultaneous  axes  of  motion. 

c.  Boeing  has  found  through  trial  runs  that  the  best  of  the 
available  tape  applicator  designs  is  the  solid  spatula- 
like applicator.  The  various  roller  and  rubber  tire  ap- 
plicators have  not  proved  as  useful. 

d.  Tape  slitting  and  tape  cutter  rotation  are  not  used  due  to 
the  simple  shapes  of  the  chosen  components. 

The  specific  tangible  items  collected  during  this  assessment  phase 
are  listed  below. 

1.  Two  volume  final  report  on  ATLS  by  Goldsworthy  Engineering. 

2.  ATLS  Operation  and  Maintenance  Manual. 

3.  Technical  Specifications  for  the  purchase  of  the  Allen 
Bradley  7300  control  subsystem  by  Goldsworthy  Engineering. 

4.  Copy  of  the  control  codes  from  the  original  Allen  Bradley 
documentation  at  Boeing  Vertol  and  annotated  by  the  Boeing 
personnel  involved  in  programming  (Ed  Frank). 
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5.  A drawing  of  the  spar  layup  for  the  CH-47C. 

6.  Computer  listing  of  the  existing  control  tape  for  the  strap 
assembly  for  the  CH-47  spar. 

7.  Copy  of  the  existing  control  tape  for  the  CH-47C  spar  strap 
assembly. 
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3.  SYSTEM  ANALYSIS 


This  phase  of  the  project  concentrated  on  establishing  the  requirements 
for  language  development,  the  interfacing  requirements  to  the  ATLS  control  sys- 
tem, the  ATLS  functions  available  for  automatic  control,  and  the  proper  repre- 
sentation of  desiqn  data  for  input  to  the  ATLS  software  system.  This  was  ac- 
complished through  intensive  study  and  analysis  of  the  material  obtained  during 
system  assessment.  A key  activity  of  the  analysis  was  the  preparation  of  per- 
spective plots  of  the  NC  data  from  the  Boeing  furnished  EIA  coded  NC  control 
tapes.  The  plots  give  a quick  visual  overview  or  detailed  views  of  tape  ap- 
plicator motion  due  to  X,  Y,  and  Z axis  chanqes.  The  plots  were  auqmented  by 
the  generation  of  postprocessor  style  listinq  derived  from  the  same  tapes. 
Special  computer  software  was  prepared  to  automate  the  production  of  plots  and 
1 istings. 

The  following  determinations  were  made  during  the  course  of  analysis: 

3. 1 Language  Requirements 

The  language  should  be  simple,  but  sufficiently  high  level  so  as  to  sub- 
stantially reduce  human  labor  with  respect  to  the  hand  coding  technique  de- 
veloped by  Boeing.  Toward  this  end,  it  was  desirable  to  describe  the  geometric 
parameters  of  the  part  being  fabricated,  and  the  madrel , rather  than  how  the 
machine  should  move  in  order  to  fabricate  the  part.  A language  that  commands 
machine  motion  would  be  too  close  to  manual  programming  to  result  in  an  economic 
or  process  time  advantage  for  a larqe  number  of  similar  parts. 

3 . 2 ATLS  Interface  Requirements  and  the  AB7300  Control 

ATLS  interface  requirements  and  automatic  functions  controlled  by  the 
Allen  Bradley  7300  system  were  spelled  out  in  detail  in  the  Goldsworthy  manuals. 
The  subset  required  for  "root  loops"  was  determined  by  inspection  of  the  list- 
ings of  the  hand  coded  NC  tapes.  NC  tape  codes  in  either  ASCII  or  EIA  standards 
are  acceptable  input. 

The  interface  and  control  requirement  thus  boiled  down  to  providing  EIA 
or  ASCII  coded  data  in  word  address  format  in  the  proper  process  sequences. 

These  sequences  were  essentially  established  by  the  manual  programming  methods 
used  by  Boeing  for  the  two  types  of  layup  necessitated  by  the  root  loop 
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geometry  and  the  machine  geometry  restrictions  of  the  ATLS.  Our  judgement  was 
that  the  Boeing  process  sequences  and  tooling  were  appropriate  for  the  purposes 
of  the  feasibility  investigation,  and  that  their  usage  would  simplify  compari- 
sons. 


3 . 3 Design  Data  Analysys  for  Input  Requirements 

Two  types  of  information  were  available  for  describing  the  "root  loop". 

The  primary  data  gave  cross  section  areas  at  various  stations  aloriq  the  blade. 
The  secondary  data,  which  had  been  derived  from  the  primary  data,  gave  the  num- 
ber of  plies  (with  prescribed  tape  width  and  thickness)  at  the  same  blade  sta- 
tions. It  was  implied  that  linear  algebraic  functions  described  the  ply  taper 
It  was  determined  that,  for  simplicity,  the  geometric  profile  of  the  ply  pack 
should  be  described  in  terms  of  the  number  of  plies  at  each  significant  station 
for  this  stage  of  process  automation.  Future  automation  development  might  well 
push  into  the  area  of  component  geometry  detailing  and  thus  gain  further  eco- 
nomic benefit. 
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4. 


SOFTWARE  DESIGN 


A software  system  was  designed  to  automate  the  production  of  ATLS  NC 
control  tapes  subject  to  the  limitations  and  requirements  described  in  the 
previous  sections. 

4 . 1 Implementation  Language  Selection 

As  part  of  the  design  activity,  a brief  investigation  was  conducted  on 
the  desirability  of  using  APT  (an  established  and  standard  numerical  control 
lanquaqe)  or  FORTRAN  (a  standard  computer  system  language)  as  the  implemen- 
tation language. 

After  some  consideration  and  experimentation  we  decided  to  use  FORTRAN 
for  the  following  reasons: 

a)  APT,  although  rich  in  geometry,  has  very  limited  logical 
capability.  FORTRAN  is  far  superior  in  this  regard  and 
the  "root  loop"  problem  required  more  logic  than  geometry. 
Therefore,  programming  in  APT  for  this  problem  would  be 
more  complex  and  costly  than  programming  in  FORTRAN. 

b)  Usinq  APT  would  have  required  building  or  modifying  an 
APT  postprocessor.  This,  and  the  use  of  APT,  was  con- 
sidered undesirable  from  a project  time  and  cost  view- 
point. Postprocessing  for  this  control  system  amounts 
to  formatting  the  output  data  in  word  address  EIA  or 
ASCII  code,  which  is  easily  handled  with  FORTRAN. 

c)  Tape  shearing  must  occur  a fixed  distance  (approximately 
13.5  inches)  prior  to  the  end  of  a tape  layer.  This 
function  could  be  handled  in  a postprocessor  but  would 
be  difficult  in  APT  Section  I style  computing.  It  is 
relatively  easy  to  handle  with  a specially  designed 
FORTRAN  program. 
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d)  FORTRAN  implementation  makes  the  results  usable  on  a large 
variety  of  computers,  including  mini -computers,  without  re- 
quirements for  other  more  expensive  language  systems. 

e)  Processing  costs  for  use  of  the  resulting  systems  are  in 
general  minimized  using  FORTRAN  as  opposed  to  APT. 

f)  The  use  of  either  language  would  satisfy  the  objectives  of 
the  investigation. 

4.2  System  Description 

A computer  software  system  was  designed  to  support  the  primary  objective 
of  the  project,  i.e.,  to  show  feasibility  of  pre-programming  the  ATLS  using 
computerized  methods.  The  design,  which  has  satisfied  that  objective  and 
which  meets  the  specification  requirements  given  in  Section  3,  is  detailed  be- 
low according  to  three  distinctly  separate  major  functions: 

t Analysis  - Modules  to  aid  in  the  analysis  of  existing  and 
subsequently  generated  ATLS  control  tapes. 

• Synthesis  - A module  that  will  generate  an  ATLS  control 

tape  for  a specified  test  component.  The  descriptive  language 
parameters  for  this  component  are  entered  as  variable  data. 

• System  Support  - Utility  routines  that  support  the  operation 
of  the  analysis  and  synthesis  functions. 

The  bulk  of  the  program  modules  that  comprise  this  system  were  written 
in  FORTRAN  IV  for  a Digital  Equipment  Corporation  PDP-11/45.  Two  subroutines, 
however,  had  to  be  written  in  assembly  language  to  accommodate  reading  and 
punching  of  EIA  codes  on  paper  tape. 

As  shown  In  Figure  1,  the  three  functions  of  this  system  are  provided  by 
five  main  programs: 
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SYNTHESIS 


ANALYSIS 


• Analysis 

1.  ATLSGR  - a program  that  displays  a "wire  frame"  drawing 
of  the  three  linear  machine  axis  on  a graphic  CRT.  This 
program  is  interactive  and  allows  the  user  to  describe 
variations  in  the  viewing  parameters.  In  particular,  the 
user  can  scale,  center  or  rotate  the  displayed  view.  If 
the  operator  wishes,  he  may  manually  request  a "hard  copy" 
of  the  display  to  be  generated. 

2.  ATLSLI  - a program  that  generates  a formatted  listing  of 
an  ATLS  control  tape.  This  listing  provides  convenient 
tabular  form  for  each  machine  axis  or  control  code  as  well 
as  auxiliary  information  such  as  block  numbers. 

0 Synthesis 

3.  PLYGEN  - a program  to  generate  an  ATLS  control  tape  for 

I CH-47  style  root  straps.  The  basic  component  geometry 

and  wrapping  motion  sequences  are  fixed;  however,  most 
other  information  is  input  as  variable  data.  The  user 
can  specify  the  number  of  plies  at  each  station,  the  size, 
location,  and  orientation  of  the  mandrel,  and  various 
wrap  parameters.  These  are  described  fully  in  Appendix  B 
under  the  input  language  description  for  PLYGEN. 

# System  Support 

4.  PTLOAD  - This  program  loads  ATLS  control  tapes  into  the 
system  DATA  storage.  These  tapes  may  be  coded  in  either 

| ASCII  or  EIA  code.  PTLOAD  distinguishes  between  these 

two  code  sets  by  inspecting  the  first  EOB  (End  of  Block) 
code.  This  is  the  same  method  used  by  the  Allen  Bradley 
7300  controller  used  on  the  ATLS. 
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5.  PTDUMP  - this  program  punches  a control  tape  stored  in  the 
system  data  storage  to  paper  tape.  The  current  date  and 
time  along  with  other  optional  text  information  is  punched 
in  man-readable  leader  by  this  program. 

The  five  main  program  modules  all  interact  with  a central  data  storage 
facility  (file  system  ) provided  by  the  computer  operating  systems.  This 
approach  was  chosen  for  its  operational  ease.  Paper  tapes  can,  however,  be 
entered  into  or  retrieved  from  the  central  data  storage  facility  by  using  the 
support  programs. 

4.3  System  Appl i cation 

The  system  is  designed  for  use  in  two  basic  situations  which  are  described 
below: 

• Analysis  of  an  Existing  Control  Tape.  An  existing  control  tape 
can  be  entered  into  the  data  storage  via  the  program  PTLOAD. 

This  program  will  accept  control  tapes  punched  in  either  ASCII 
or  EIA  codes.  Once  stored  in  the  system,  the  control  tape  can 
be  used  to  generate  a formatted  tabular  listing  or  graphical 
output. 

• Generation  and  Analysis  of  a New  Control  Tape.  When  the  proper 
input  parameters  are  entered  into  the  program  PLYGEN,  it  gener- 
ates the  control  tapes  for  the  CH-47  root  strap  style  wrap.  Two 
different  control  tapes  are  generated  corresponding  to  the  two 
wrap  styles  currently  being  used  at  Boeing  Vertol . The  program 
stores  both  of  these  control  tapes  in  the  system  data  storage 
for  future  analysis.  Either  of  these  control  tapes  can  then  be 
analyzed  with  the  aid  of  ATLSLI  or  ATLSGR.  If  errors  are  detected, 
the  operator  can  modify  the  original  input  parameters  to  PLYGEN 
and  iterate  through  this  entire  process  once  again.  If  no  errors 
are  apparent  from  the  analysis,  the  tape  can  be  punched  using 
PTDUMP. 
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5.  TEST  RESULTS 


Original  planning  for  this  project  called  for  testing  of  the  ATLS  soft 
ware  by  comparison  of  a proven  digitized  NC  tape  with  one  generated  by  the 
new  software.  This  could  not  be  done  since  no  digitized  tapes  were  availabif 
However,  a comparison  was  made  with  the  hand  programmed  tapes  prepared  by 
Boeing.  Listings  and  CRT  plots  of  the  tapes  were  created  using  the  modules 
ATLSLI  and  ATLS6R,  and  the  results  were  determined  to  be  functionally  eguiv 
alent  and  within  engineering  tolerance. 

Near  the  end  of  the  project  Boeing  expressed  a desire  to  help  test  the 
newly  prepared  tapes  on  the  ATLS.  These  tests  were  conducted  on  August  25 
and  26,  1976.  In  attendance  were  B.  Page  from  AVSCOM,  E.  Frank  from  Boeing 
Vertol , and  R.  Little  and  C.  Wells  from  IITRI.  The  NC  tapes  tested  were  for 
CH-47FRB  Spar  Strap  ("root  loop”)  described  on  Boeing  Vertol  Print  No. 

114R1710. 

Two  tapes  were  provided  in  accordance  with  Boeing  procedures  and  tooling. 
The  first  tape  was  for  plies  1 through  50  in  the  so-called  "propeller  wrap" 
configuration  in  which  the  principal  linear  motion  for  ply  application  is 
parallel  to  machine  Y axis.  The  Y axis  or  transverse  axis  coincides  with  the 
shorter  horizontal  dimension  of  the  ATLS  bed. 

The  second  tape,  a "flip  wrap"  configuration  for  plies  51  through  155, 
has  principal  linear  motions  of  up  to  twenty-eight  (28)  feet  that  are  parallel 
to  the  machine  X axis.  The  X axis  or  longitudinal  axis  is  parallel  to  the 
ATLS  bed  and  perpendicular  to  the  Y axis. 

Two  problems  were  encountered  in  testing  that  precluded  the  manufacture 
of  a complete  144  ply  "root  loop".  However,  the  first  50  ply  portion  of  the 
"root  loop"  was  successfully  made  and  the  machine  was  run  in  air  (no  mandrel 
was  used)  for  the  remaining  plies.  It  was  the  judgement  of  those  in  atten- 
dance that  the  motions  of  the  machine  were  correct  during  the  air  trial. 

The  problems  encountered  were  as  follows.  First,  the  mandrel  rotation 
direction  for  the  A axis,  a rotary  axis  parallel  to  the  X axis,  was  incorrect 
in  some  Instances  due  to  misinterpretation  of  sign  (+)  conventions  for  the 
axis  commands. 
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Second,  the  plexiglass  layup  mandrel  retaining  plates  were  designed  to 
be  one  sixteenth  of  an  inch  higher  than  the  completed  laminate.  A fine  scribe 
line  was  put  on  the  plexiglass  to  define  the  completed  laminate  outline  to 
serve  as  a visual  inspection  aid.  This  additional  height  did  not  permit  the 
ATLS  compaction  foot  to  reach  the  layup  surface. 

For  the  purposes  of  the  tests  these  problems  were  overcome  in  the  follow- 
ing manner.  IITRI  modified  the  NC  tape  by  editing  on  a teletype  to  produce  a 
correct  version.  Boeing  removed  the  plexiglass  layup  mandrel  retaining  plates 
during  the  tests. 

Subsequent  action  was  taken  by  IITRI  to  correct  the  ATLS  software  inter- 
pretation of  rotational  directions  and  to  incorporate  recommended  changes  in 
approach  and  liftoff  patterns  for  improved  tape  placement.  Boeing  removed 
a tenth  inch  of  material  from  compaction  foot  offsets  to  permit  proper  engage- 
ment between  the  foot  and  mandrel. 

The  tests  successfully  demonstrated  that  it  is  feasible  to  pre-program 
the  ATLS  using  computerized  methods.  Photographs  taken  during  testing  may  be 
found  in  Appendix  A. 
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6. 


TECHNICAL  ANALYSIS 


The  detailed  experience  gained  on  this  project  was  directed  at  a si'niti 
component  part  of  a fiberglass  helicopter  blade,  manufactured  in  a particular 
style  developed  by  Boeing  Vertol  and  on  a particular  machine  systen  calle< 
ATLS.  However,  we  believe  this  experience  is  extendable  to  similar  situat. 
and  therefore  offer  our  advice  on  several  pertinent  aspects. 

6 . 1 Programming  for  a Variety  of  Composite  Structures 

The  techniques  used  for  the  "root  loop"  are  quite  applicable  to  any 
composite  structure  formed  by  a numerically  controlled  machine  using  pre 
impregnated  tape.  Basically,  we  identified  the  critical  parameters  of  the 
manufacturing  sequence,  determined  a simple  but  complete  way  to  describe 
the  part  to  be  fabricated  and  its  special  tooling,  determined  the  appropri- 
ate machine  (ATLS)  functions  to  control,  and  wrote  a computer  program  to 
transform  the  part  description  (input  language)  into  the  appropriate  sequence 
of  control  functions  (NC  tape  output).  We  did  not  try  to  describe  ail  parts, 
but  only  a reasonably  large  class  of  similar  parts.  We  observe  that  the 
computer  program  might  be  written  in  FORTRAN  or  in  APT,  primarily  depending 
on  the  nature  of  the  geometrical  versus  logical  problem  presented  and  the 
availability  of  suitable  computer  service.  Programs  of  this  type  written 
in  APT  would  probably  make  heavy  use  of  complex  macros,  and  a special  post- 
processor would  be  required  to  insert  delayed  result  functions  such  as  tape 
shearing  at  prior  positions  in  the  CL  file  sequence.  The  CL  (cutter  loca 
tion)  file  produced  by  APT  is  a list  of  individual  machine  axis  motions 
interspersed  with  feedrates  and  auxiliary  function  commands  (e.g.,  tape 
shearing).  A post  processor  modifies  a CL  file  to  suit  a particular  NC 
machine.  An  APT  system  that  allows  the  use  of  current  CL  data  in  the 
definition  of  geometry  would  also  be  desirable. 

Other  geometrical  shapes  that  could  be  treated  are: 

A.  Flat  tapered  spar  packs  (similar  to  "root  loop"  without 
the  "loop"). 
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B.  Single  thickness  flat  layups  consisting  of  flat  irregular 
regions  with  side  by  side  tape  strips  in  a specific 
orientation. 

C.  Multiple  thickness  flat  layups  composed  of  superimposed 
single  layer  types  described  in  B. 

D.  Cylindrical  surface  layups  with  both  single  and  multiple 
thickness. 

E.  Multiply  curved  surfaces  described  as  sculptured  surfaces 
or  with  MDI  data. 

The  currently  used  flat  spatula  foot  on  the  ATLS  could  not  be  used  in 
situations  D and  E due  to  machine  and  surface  geometry. 

6.2  Use  of  Higher  Level  Engineering  Data 

The  Engineering  Deta  used  for  the  "root  loop"  consisted  of  a simple 
geometrical  description  of  the  component  part  in  terms  of  tape  width,  tape 
thickness,  and  the  number  of  tape  plies  on  a specific  mandrel  at  various 
stations  along  the  length  of  the  mandrel.  We  feel  this  is  an  appropriate 
level  of  data  for  input  to  the  NC  control  tape  preparation  function.  It 
is  sufficiently  close  to  the  physical  action  that  will  take  place  at  the 
ATLS  so  as  to  provide  a basis  for  the  checkout  of  programs  and  for  quality 
control  during  production. 

This  is  not  to  say,  however,  that  prior  steps  in  the  design  process 
(see  Section  2 - System  Assessment)  would  not  benefit  from  additional  com- 
puterized aids.  We  feel  that  each  of  these  steps  may  be  substantially 
automated,  but  that  such  automation  is  primarily  an  economic  consideration 
that  is  separate  from  ATLS  control  tape  preparation. 

An  obvious  and  simple  extension  of  ATLS  software  is  the  automatic 
generation  of  ply  data  (inputs  to  PLYGEN)  from  the  cross  section  cured  area 
data  given  in  the  material  quantity  chart  (Boeing  Vertol  drawing  #11 4R1 710). 
A further  extension  is  the  computerized  breakdown  of  the  blade  spar  into 
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individual  components  with  specific  cross  sections  so  as  to  generate  the  c--.r  c.  • 
area  information. 


6.3  Common  Language  for  Multiple  Machines 

The  design  of  the  input  language  for  ATLS  software  assured  that  the 
language  itself  would  be  quite  independent  of  ATLS.  This  is  true  because 
the  language  basically  describes  a member  of  a class  ("root  loop"  class)  of 
parts  to  be  manufactured.  The  language  can  be  extended  to  describe  addi- 
tional classes  and  tooling,  such  as  described  in  Section  6.1,  but  it  is  ••  n 
no  way  dependent  on  the  ATLS. 
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7.  ECONOMIC  ANALYSIS 


The  economic  analysis  called  for  in  the  statement  of  work  was  intended  to 
establish  the  economics  of  programming  the  ATLS  as  compared  to  digitizing. 

The  digitizer  has  not  been  used  by  Boeing  due  to  a machine  manfunction  which 
could  create  a personnel  safety  hazard  and  risk  of  substantial  damage  to  the 
machine  if  an  emergency  stop  condition  is  created.  Therefore,  since  actual 
data  is  unavailable  from  digitizing,  we  are  providing  what  we  consider  to  be 
realistic  estimates  of  time  required  for  digitizing  based  on  our  examination 
of  the  machine,  tooling,  controls,  and  the  part  ("root  loop")  selected  for 
comparison. 

The  digitizing  job  is  a two-man  operation  since  part  of  the  work  must 
be  accomplished  with  the  engineer/operator  near  the  digitizing  head  while  the 
remainder  is  a data  entry  operation  for  miscellaneous  function  codes  and  cer- 
tain motions  at  the  machine  control  cabinet.  One  man  could  do  the  job  by 
walking  back  and  forth  between  the  two  locations,  but  with  probably  a greater 
total  expenditure  of  man-hours. 

Let  T^  = time/foot  of  fiberglass  tape  = 8 seconds 

Tp  = time/ply  = 15  minutes 

L = length  of  tape  in  feet  = 955 

N = number  of  plies  = 144 

M = number  of  men  = 2 

T = total  time  required  for  digitizing 
Then  T = (T^  • L + T^  • N)  • M 

= (8/60  • 955  + 15  • 144)  • 2 
= 4575  minutes 
s 76  hours 
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This  assumes  no  errors  are  made.  If  there  is  a rework  factor  of  Z0% , 
then  the  test  component  would  require  about  91  man-hours. 

As  another  baseline,  Boeing  has  provided  a preliminary  estimate  of 
100  hours  of  programming  effort  for  a similar  CH-46  component  to  be  fabri- 
cated on  the  PIN  WRAP  machine,  a more  specialized  machine  derived  from  A'llv 
There  is  considerable  uncertainty  in  both  estimates  since  neither  procedure 
has  actually  been  accomplished. 

On  the  other  hand,  the  ATLS  software  method  requires  only  a few  langur 
statements  to  describe  the  component  and  tooling.  The  total  time  to  prepa  e 
the  control  tapes,  including  graphical  checkout  and  listing  examination  ap 
proximates  6 hours.  Assuming  a labor  rate  of  $9.50  per  hour  with  a 65% 
overhead,  the  cost  differential  between  digitizing  and  ATLS  software  methods 
is  (91  hours  - 6 hours)  x • x 1.65  = $1332/tape. 

Additional  savings  may  be  realized  by  avoiding  setup  and  teardown  of 
tooling  for  tape  preparation  through  digitizing  and  by  keeping  the  ATLS 
more  available  for  production  work.  The  latter  is  estimated  at  $50.00/ 
macnine  hour  for  45  hours/tape  or  $2, 250/tape.  Further,  the  cycle  time  for 
developing  a control  tape  with  ATLS  software  is  considerably  shorter  than 
digitizing,  a circumstance  which  could  lead  to  substantial  economic  benefit 
in  a tightly  scheduled  program. 

These  factors  are  summarized  in  Figure  2 on  the  basis  of  savings 
per  tape.  Detailed  information  on  procurement  schedules  for  different  but 
similar  types  of  blades  can  be  translated  into  total  savings  resulting  from 
the  use  of  p re- prog ramming  under  the  given  assumptions. 


20 


Quantifiable  Cost  Savings 

1.  Reduction  in  Labor 

$1,332 

2.  Recovery  of  lost  machine 
production  time 

2,250 

Additional  Cost  Benefits 

1.  Improved  cycle  time 

2.  Reduction  in  number  of  setups 

— 

TOTAL 

$3,582 

Figure  2 . Summary  of  Cost  Savings  and  Benefits 

Per  Pre-programmed  NC  Tape. 
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8.  CONCLUSIONS  AND  RECOMMENDATIONS 


The  primary  conclusion  of  the  study  was  the  highly  successful  proot  ar,d 
demonstration  through  live  machine  tests  of  the  feasibility  of  p re- prog raw ir 
the  ATLS  using  computerized  methods.  Secondarily,  additional  very  promisin' 
areas  for  the  automation  of  NC  control  tape  production  were  identified:  I)  but' 
simpler  and  more  complex  shapes  than  the  "root  loop",  2)  interfaces  wi tn  high, ■ 
level  engineering  data,  and  3)  the  extension  of  ATLS  software  to  the  control 
otner  composite  tape  layup  machines  using  the  same  common  language  for  input 

We  therefore  urgently  recommend  that  in  the  next  phase  of  development  tr. 
following  areas  be  further  automated  by  extension  to  the  ATLS  part  descript u1 
language  and  ATLS  software  system: 

A.  Flat  tapered  spar  packs. 

B.  Single  thickness  flat  layups  in  irregular  regions. 

C.  Multiple  thickness  flat  layups  in  superimposed  irreg- 
ular regions. 

D.  Control  of  the  PIN  WkAP  machine  for  spar  packs. 

We  believe  there  is  sufficient  variety  of  component  requirements  in  the 
categories  to  justify  the  software  development  costs. 

“wo  additional  areas  for  further  development  are: 

L.  Layups  on  cylindrical  surfaces. 

F.  Layups  on  multiply  curved  surfaces. 

These  are  technically  more  ambitious  but  may  lead  to  improved  structural 
design  for  blades  by  allowing  manufacture  of  the  entire  helicopter  rotor  b'adi 
or  blade  spar  on  a single  mandrel  without  using  the  current  multi -component 
spar  approach.  Software  design  investigation  for  these  problems  requires  < ■ 
current  exploration  of  improved  tooling  and  fiberglass  tape  appl  ir.ators . It 
wouM  be  especially  useful  if  some  additional  degrees  of  freedom  were  aval  ab.e 
in  the  applicator  head  and  if  some  form  of  extrusion  could  be  used  on  the  tape 
to  continuously  reshape  its  cross  section  while  maintaining  the  same  sectional 
area. 

In  addition  to  improving  blade  manufacture,  these  advances  will  enable 
tne  manufacture  of  more  severely  multiply  curved  panels  that  are  not  amenable 
to  flat  layup  approaches  using  either  tape  or  broad  goods. 
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Completed  'Propeller  Wrap"  - First  50  Plies  of 
"Root  Loop". 


Clcsc  L'n  of  Inside  of  "Root  Loop"  Showing  Ply  Fnds 
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OPERATING  INSTRUCTIONS  FOR  THE  ATLS  SOFTWARE  SYSTEM 


1.  INTRODUCTION 

All  program  modules  associated  with  this  software  system  run  under 
the  control  of  the  PDP-11  Disk  Operating  System  (DOS).  Any  discussion  of 
the  operational  characteristics  of  the  ATLS  software  system  must  necessarily 
contain  some  references  to  the  host  computer  operation  system.  However, 
every  attempt  has  been  made  to  keep  these  references  to  a minimum. 

Programs  are  initiated  under  the  DOS  system  via  the  RUN  command  to 
the  monitor.  The  system  prompts  the  user  by  printing  a dollar  sign  ($) 
and  the  user  responds  by  typing  in  "RUN"  followed  by  the  program  name. 

To  execute  program  ATLSLI  , the  console  display  would  contain  the  following: 

$RUN  ATLSLI 

Each  program  then  carries  on  a dialogue  with  the  user  in  order  to 
obtain  additional  input  before  beginning  execution.  Each  dialogue  will 
be  described  in  detail  along  with  the  individual  program  operational  des- 
cripti ons. 

The  remainder  of  this  text  will  contain  detailed  operational  instruc- 
tions for  each  of  the  five  main  program  modules.  Each  of  these  will  con- 
tain the  following  information: 

• Program  name 

• Significant  file  information 

• Operator  command 

• Input  formats 

• Output  formats 

• Error  messages 

• Program  termination  conditions 
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2.  ATLSGR  - ATLS  Graph 


2.1  Files 


logical 

default 

name 

IN 


filename 
DK: ATLS. DAT 


purpose 

Control  tape 
input  file. 


2.2  User  Commands  (at  CRT) 

D Draw  the  control  tape  using  the  current  projective 

transformation  parameters. 

C Center  the  picture.  The  graphics  cursor  is  moved 

to  the  new  center  and  any  character  is  hit  on  the 
keyboard. 

S Scale  the  picture.  The  graphics  cursor  is  used 

to  define  diagonal  corners  of  the  picture  area 
that  is  to  be  expanded  to  the  entire  viewing  area. 

Xn  Rotate  the  figure  about  the  X axis  by  n degrees, 

n may  be  negative. 

Yn  Rotate  the  figure  about  the  Y axis. 

In  Rotate  the  figure  about  the  l axis. 

Hn  Reset  the  eyepoint  viewing  distance.  Original 

value  is  12.0. 

M Mark  or  save  the  current  transformation  parameters. 

R Restore  the  trarisformati on  parameters  to  the 

values  last  marked  (see  M). 

0 Restore  the  transformation  parameters  to  their 

initial  (original)  values. 

Vn  Define  the  virtual  size  of  the  viewing  screen  area. 

Initially  this  value  is  6.0. 

E Exit  or  terminate  program  execution. 
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2.3  Input  Formats 


El  A or  ASCII  ATLS  control  tape. 

2. 4 Output  Formats 
See  Appendix  D 

2. 5 Error  Messages 

** INVALID  COMMAND** 

2.6  Program  Termination 

Upon  encountering  an  "E"  command. 
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ATLSLI  - ATLS  List 


Files 

logical 

dataset 

default 

name 

filename 

purpose 

IN 

DK-.ATLS.DAT 

Control  tape  input  file. 

6 

DK: F0RO06.DAT 

Listing  output  file. 

15 

KB: F0R015.DAT 

Operator  command  input  file 

16 

KB: F0R016.DAT 

Operator  output  log  file. 

3.2  Operator  Commands  (Console  Dialogue) 

$ RUN  ATLSLI 

ENTER  TITLE. . ,CH47  ROOT  LOOP 
ENTER  LISTING  FILENAME. . . .LP : 

3. 3 Input  Formats 

EIA  or  ASCII  ATLS  control  tape. 

3.4  Output  Formats 

Each  page  of  the  output  list  contains  the  following  information 

• Page  Header 

1.  Title  entered  by  operator. 

2.  Current  date  and  time. 

3.  Page  number. 

4.  Column  headings. 

• Data  Lines 

1.  An  entry  for  each  of  the  permissable  control 
code  characters  (N ,G,M ,S,X ,Y ,Z ,A,C,D, I ,J ,K  and  F) 
within  this  block. 

2.  A tape  block  sequence  number. 

3 . 5 Error  Messages 
None 
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3.6  Program  Termination 

Program  terminates  after  listing  a single  control  tape  file. 
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4.  PLYGEN  - Ply  Generator 


4.1  Files 


logical 

dataset  default 


name 

2 

3 

5 

6 

16 


f i lename 
DK: F0R002.DAT 

DK: F0RO03.DAT 

DK: F0R005.DAT 
DK: F0R006.DAT 
KB: F0R016.DAT 


purpose 

Control  tape  output  file 
for  "propeller  wrap." 
Control  tape  output  file 
for  "flip  wrap" 

Language  card  input. 

List  file  output. 

Operator  log  output  file. 


4.2  Operator  Cormiands  (Console  Dialogue) 


$ RUN  PLYGEN 


4.3  Input  Formats 

The  PLYGEN  part  and  mandrel  description  language  is  punched 
on  cards  with  one  statement  per  card.  Cards  with  an  asterisk 
(*)  in  column  1 are  printed  on  the  output  listing  but  other- 
wise ignored.  This  allows  comments  within  the  listing.  Blank 
characters  are  totally  ignored  in  the  syntax  analysis  and  can 
therefore  be  used  freely  to  improve  readability. 

There  are  twelve  types  of  language  statemnets  that  can  be 
input.  Each  will  be  described  separately. 


4.3.1  END 

One  card  of  this  type  appears  as  the  last  card  of  the  deck. 

4.3.2  THICKNESS  n 


Specifies  the  nominal  fiberglass  tape  thickness  in  inches. 

4.3.3  MANDREL(l)  x.y.e.d 

Specified  the  mandrel  parameters  for  the  first  style  of 
wrapping  geometry.  The  center  of  the  round  end  of  the  tooling 
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is  specified  by  x,y,z.  The  pullout  point  on  the  x axis 
is  specified  by  p.  The  backup  point  is  specified  by  b. 
The  windup  point  is  specified  by  w. 

4.3.5  INITIAL  (1)  x,y,z 

Specifies  an  optional  initial  move  for  the  type  1 wrap. 

4.3.6  INITIAL  (2)  x,y,z 

Specifies  an  optional  move  for  the  type  2 wrap. 

4.3.7  FINAL  (1)  x,y,z 

Specifies  an  optional  final  move  for  the  type  1 wrap. 

4.3.8  FINAL  (2)  x,y,z 

Specifies  an  optional  final  move  for  the  type  2 wrap. 

4.3.9  REFSTATION  n 


Specifies  the  reference  station  coordinate  from  the  print. 

4.3.10  PLY  n ,1 

Specifies  the  parameters  for  a specific  reference  ply.  n 
is  the  ply  number  and  1 is  the  station  at  which  that  ply 
ends.  A series  of  two  or  more  of  these  cards  specify  the 
plies  of  a root  strap  component.  Ply  1 and  the  last  ply 
must  be  specified.  Ply  numbers  that  are  not  specified  are 
calculated  from  the  next  higher  and  lower  specified  para- 
meters assuming  a linear  increase  in  ply  length. 

4.3.11  BREAK  n 


Specifies  the  ply  number  at  which  part  2 starts. 
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4.3.12  CYLTRAVEL  t 


Specifies  how  much  travel  is  allowed  in  the  air  cylinder 
in  the  head  of  the  ATLS. 

4.4  Output  Formats 

Program  listing  containing: 

• Page  Header 

1.  PLYGEN  identification  and  version. 

2.  Date  and  time. 

3.  Page  number. 

• An  image  of  the  input  line  containing  a sequence 
number. 

4.5  Error  Messages 
**ERR0Rn** 

4.6  Program  Termination 

PLYGEN  terminates  normally  after  generating  the  two  control 
tapes.  If  errors  were  detected  in  reading  input  cards, 
PLYGEN  terminates  abnormally. 
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5. 


PTDUMP  - Punched  Tape  Dump 


Files 

logical 

dataset 

default 

name 

filename 

IN 

DK: ATLS. DAT 

OUT 

PT: 

15 

KB: F0R015.DAT 

16 

KBrF0R016.DAT 

purpose 

Control  tape  input  file 
Paper  tape  output  file. 
Operator  command  input. 
Operator  log  output. 


5.3  Operator  Commands  (Console  Dialogue) 

$ RUN  PTDUMP 
ENTER  LEADER  STRING 
CH47  ROOT  LOOP 


5.3  Input  Formats 

EIA  or  ASCII  ATLS  control  tape. 

5.4  Output  Formats 

ASCII  punched  paper  tape  with  man-readable  leader. 

5.5  Error  Messages 
None 


5.6  Program  Termination 

After  punching  one  tape. 


’ 
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PTLOAD  - Punched  Tape  Loader 


Files 

logical 

dataset 

default 

name 

filename 

purpose 

IN 

DK: ATLS. DAT 

Control  tape  input. 

6 

DK: F0R006.DAT 

Control  tape  output. 

15 

KB: F0R015.DAT 

Operator  command  input  file 

16 

KB: F0R016.DAT 

Operator  log  output  file. 

6.2  Operator  Commands  (Console  Dialogue) 

$ ASSIGN,  PR: , IN 
$ RUN  PTLOAD 

ENTER  OUTPUT  FILENAME... T E ST . D AT 
127  RECORDS  COPIED 

6.3  Input  Formats 

EIA  or  ASCII  ATLS  control  tape. 

6 . 4 Output  Formats 

EIA  or  ASCII  ATLS  control  tape. 

6.5  Error  Messages 
None 

6.6  Program  Termination 
After  reading  one  tape. 
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PROGRAM  DESCRIPTIONS  FOR  ATLS  SOFTWARE  SYSTEM 


1.  INTRODUCTION 


The  following  text  contains  a description  of  each  distinct  module  within 
the  ATLS  Software  System.  Each  module  description  will  contain  the  follow- 
ing information: 

• Name  of  the  subroutine  or  main  program. 

• Concise  statement  of  purpose. 

• Calling  sequence  and  argument  description  (not  applicable 
for  main  programs). 

• Modules  that  call  this  subroutine  (not  applicable  for 
main  programs). 

• Subroutines  called. 

9 Diagnostics  issued. 

• Detailed  description  of  methodology. 

• Symbolic  source  listing. 

Five  different  types  of  software  modules  were  used  in  the  ATLS  pro- 
gramming system: 

1.  Main  programs  developed  under  this  contract. 

2.  Subroutines  developed  under  this  contract. 

3.  Subroutines  from  a general  utility  library  developed  by  IITRI. 

4.  Subroutines  from  a general  utility  library  supplied  with  the 
PDP-11  by  Digital  Equipment  Corporation. 

5.  Subroutines  from  a graphics  terminal  support  library  supplied 
by  Tektronix  Inc. 

Only  the  program  modules  from  categories  1 and  2 above  will  be  described  in 
full  detail.  Modules  from  categories  3,  4,  and  5 will  be  described  only 
by  name  and  a concise  statement  of  purpose.  This  minimum  amount  of  infor- 
mation is  required  to  understand  the  program  listings  for  categories  1 
and  2. 
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2.  MAIN  PROGRAMS 


2. 1 ATLSGR  - ATLS  Graph 

Purpose : Provide  a pictorial  representation  of  the  three  linear 

head  motions  (x,y,z)  that  would  be  taken  by  the  ATLS  if  it  were  presented 
with  the  control  tape  used  as  input. 

Calling  Sequence  and  Arguments:  N.A. 

Called  By:  N.A. 


Subroutines  Called:  IN  ITT  SWINDO 

ERASE  VWINDO 

MOVABS  MOVEA 

MSG  DRAWA 

ANSWER  GET 

SETUP  R8MULT 

BELL  CHAR 

RESET 


Diagnostics:  None 

Detailed  Description:  Subroutine  SETUP  is  called  to  perform  a pre- 

scan of  the  control  tape  file  and  initialize  the  various  matrices  associ- 
ated with  the  graphic  transformations  used  within  the  main  program  loop. 
Several  graphics  support  subroutines  are  then  called  to  initialize  the 
graphics  package,  erase  the  viewing  screen  and  draw  a box  that  outlines 
the  viewing  area. 

The  control  tape  file  is  scanned  and  each  block  of  data  is  converted 
to  internal  representation.  If  x,  y,  or  z codes  exist  within  the  currently 
assembled  block,  a call  is  made  to  the  graphics  subroutines  to  draw  a line 
to  this  new  point.  After  the  entire  control  tape  is  processed,  subroutine 
RESET  is  called  to  interact  with  the  operator  and  accept  new  projection 
parameters.  From  that  subroutine,  the  operator  may  elect  to  terminate  the 
main  program. 
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DECLARATIVES  00622  14434 

EXECUTABI.ES  0I3O4  13752 


2.2  ATLSLI  - ATLS  List 


Purpose:  To  provide  a conveniently  readable  formatted  listing  of 

an  ATLS  control  tape. 

Calling  Sequence  and  Arguments:  N.A. 

Called  By:  N.'A. 


Subroutines  Called:  DATE  FILL 

TIME  GET 
ASSIGN  MOVB 
DELETE  EXIT 


Diagnostics : None. 

Detailed  Description:  A dialog  is  carried  on  with  the  operator  to 

accept  information  about  the  listing  file  name  and  a title  string.  The 
control  tape  file  is  then  scanned  and  each  block  of  data  is  assembled  into 
internal  format.  A line  is  formatted  for  printing  using  the  ENCODE  facility 
of  the  PDP-11  FORTRAN  system.  Each  line  is  then  printed  along  with  a se- 
quential reference  number.  The  header  is  printed  at  the  top  of  each  page 
of  output  along  with  a page  number.  When  the  entire  control  tape  file  is 
processed,  this  program  returns  control  to  the  operating  system. 
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ROUTINES  CALLED: 

DATE  . TIME  , ASSIGN.  DELETE.  FILL  . CET  . MOVB 
EXIT 


2. 3 PLYGEN  - Ply  Generator 


Purpose:  To  generate  ATLS  control  tapes  for  a specific  configuration 

of  a CH47-style  root  strap  component. 


Cal  line  Sequence  and  Arguments:  N.A. 


Called  By:  N.A. 


Subroutines  Called:  CMPB  MOVE 

DELETE  HEAD 

ASSIGN  CLAMP 

FILLB  SHEAR 

DATE  SQRT 

TIME  EOT 

MOVB  ABS 

ERR  SLIT 

BOT  DELAY 

BUILD  EXIT 

PUNCH 


Diagnostics : Error  1 - More  than  2S6  ply  description  cards. 

" 2 - Less  than  2 ply  description  cards. 

" 3 - Ply  Number  1 not  specified. 

" 4 - Ply  lengths  decreasing 

" 5 - Ply  lengths  not  increasing  fast  enough. 

" 6-2  ply  description  cards  for  the  same  ply. 

" 7 - Undefined  input  card. 

Detailed  Description:  PLYGEN  reads  input  cards  that  describe  various 

variable  parameters  for  a CH47-style  root  strap  and  produces  two  ATLS  con- 
trol tapes  to  be  used  for  laying-up  this  component.  For  shorter  plies,  a 
"propellor-wrap"  type  of  wrapping  geometry  is  generated.  This  type  of 
wrap  is  used  for  the  first  plies  (typically  60  or  so)  layed  up.  The  re- 
mainder of  the  longer  plies  are  layed  up  using  a "flip-wrap"  style  of  wrap- 
ping geometry.  This  style  wrap  is  generated  for  the  second  control  tape. 


The  program  proceeds  in  three  basic  phases: 


1.  Input  parsing  and  preliminary  error  checking  phase. 
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2.  Generate  the  first  control  tape  for  the  first  plies. 

3.  Generate  the  other  control  tape  for  the  remaining  plies. 

The  input  phase  reads  input  cards,  identifies  the  statement  type, 
and  dispatches  to  a separate  routine  to  decode  each  individual  statement. 
This  continues  until  an  "END"  card  is  encountered.  The  various  para- 
meters that  were  collected  during  the  input  phase  are  checked  for  semantic 
consistancy  and  appropriate  error  diagnostics  are  issued  if  problems  are 
detected.  All  errors  except  for  ERROR-7  cause  PLYGEN  to  terminate  at  the 
end  of  the  input  phase. 

Phase  2 starts  by  initializing  the  control  tape  file  and  generating 
some  preliminary  move  data.  The  internal  ply  table  is  then  scanned  and 
each  ply  is  generated  in  turn.  As  each  ply  is  generated,  the  mandrel  shape 
logically  changes  for  subsequent  plies.  This  is  allowed  for  by  tne  program 
and  a piecewise  linear  approximation  of  the  current  mandrel  shape  is  used 
to  generate  each  ply.  This  process  continues  until  all  plies  up  to  the  ply 
specified  by  the  "BREAK"  card  is  generated.  Trailer  codes  are  then  punched 
and  the  first  control  tape  file  is  closed  out. 

Phase  3 generates  the  second  control  tape  file  using  the  "flip-wrap" 
style  geometry.  This  control  tape  file  is  opened  and  initialized  in  a 
similar  fashion  as  the  previous  phase.  The  scanning  of  the  ply  information 
table  then  continues  where  previously  left  off  with  this  new  wrapping  geom- 
etry. As  in  the  previous  phase,  piecewise  linear  approximations  and  allow- 
ance for  continuous  ply  buildup  is  automatically  handled  by  the  program. 
After  the  ply  table  is  exhausted,  this  second  control  tape  file  is  closed 
out  and  the  program  terminates. 
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MPORARILY  SAVE  THE  ACTUAL  PARAMETERS  FOR  THIS  PLY  TABLE  ENTRY 
D SETUP  FOR  DYNAMIC  MODIFICATION  WITHIN  THE  NEXT  DO  LOOP. 
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EXECUTABLES  02223  12833 
ASSEMBLY  03167  16529 


2 . 4 PTDUMP  - Paper  Tape  Dump 

Purpose:  To  punch  ATLS  control  tape  data  stored  in  the  system  data 

storage  into  paper  tape. 

Calling  Sequence  and  Arguments : N . A . 

Cal  led  By:  N. A. 


Subroutines  Called:  ASSIGN  DATE 

MRL  TIME 

PCHAR  CHAR 

FILLS  PCLOSE 

MOVB  EXIT 


Diagnostics : 


None. 


Petal  led  Description:  Program  PTDUMP  first  interrogates  the  operator 

and  reads  an  optional  text  string  to  be  punched  as  man- readable  leader. 
This  string  is  punched  into  the  paper  tape  along  with  the  current  data  and 
time.  Following  this,  twenty  inches  of  blank  tape  are  punched  followed  by 
ASCII  carriaqe  return  and  line  feed  characters.  The  control  tape  file  is 
then  scanned  character  by  character  and  punched  into  the  output  tape  in 
ASCII. 
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ROUTINE  TO  DUMP  ATLAS  CONTROL  TAPES  TO  PAPER  TAPE. 
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2.5  PTLOAD  - Paper  Tape  Loader 

Purpose:  To  read  ATLS  control  tapes  and  enter  them  into  the  system 

data  storage. 

Calling  Sequence  and  Arguments:  N.A. 

Called  By:  N.A. 

Subroutines  Called:  ASSIGN 

CHAR 

EXIT 


Pi  agnostics : None. 

Detailed  Description:  Program  PTLOAD  first  interrogates  the  operator 

and  reads  a file  name  for  the  control  tape  that  is  to  be  stored  in  the  sys- 
tem data  storage.  Subroutine  CHAR  is  successively  called  to  get  characters 
from  the  input  tape  and  to  assemble  them  into  a line.  When  an  end-of-block 
code  is  encountered,  the  currently  accumulated  line  is  written  to  the  system 
data  storage.  This  process  continues  until  the  physical  end  of  the  input 
tape  is  encountered  and  the  program  terminates. 
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ROUTINES  CALLED: 
ASSIGN,  CHAR  , EXIT 


3.  SUBROUTINES 


3.1  ANSWER 

Purpose:  Subroutine  to  retrieve  keyboard  input  from  the  Tektronix 

graphic  display  unit. 

Calling  Sequence  and  Arguments: 

CALL  ANSWER(ANSBUF) 
where: 

ANSBUF  is  a 24  byte  array  where  the  response  is 
returned  as  a string  of  ASCII  characters. 

Called  by:  RESET 

Subroutines  Called:  ANMODE  TINPUT 

CLRB  ANCHO 

BELL  NEWLIN 

Diagnostics : None 

Detailed  Description:  Upon  entry,  the  24  byte  argument  buffer  is 

cleared  to  all  zeros.  Subroutine  TINPUT  is  then  called  iteratively  and 
each  character  is  stored  in  sequential  bytes  of  the  argument  array.  As 
each  character  is  received,  it  is  also  echoed  back  to  the  terminal.  When 
a carriage  return  character  is  encountered,  subroutine  NEWLIN  is  called  to 
position  the  cursor  to  the  beginning  of  the  next  line  and  the  subroutine  re- 
turns. 
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3.2  BOT 


Purpose:  Subroutine  to  initialize  a control  tape  file. 

Calling  Sequence  and  Arguments: 

CALL  B0T(NUNIT, STRING) 
where: 

NUNIT  is  an  integer  FORTRAN  logical  unit  number. 

STRING  is  byte  array  containing  a string  of  up  to 
80  ASCII  characters  terminated  by  a character  of 
binary  zeroc , 

Called  by:  PLYGEN 

Subroutines  Called:  None 


Diagnostics:  None 

Detailed  Description:  This  subroutine  first  moves  the  character 

string  into  a local  buffer  and  calculates  its  length  (not  including  the 
null  byte).  If  this  length  is  zero,  the  subroutine  writes  a single  end- 
of-block  (carriage  return  and  line  feed)  and  returns.  If  the  string  length 
is  greater  than  zero,  that  string  is  written  to  the  control  tape  file  and 
the  subroutine  returns.  In  either  of  the  above  cases,  the  control  tape  file 
is  on  the  FORTRAN  logical  unit  number  specified  by  the  first  argument. 
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3.3  BUILD 


Purpose:  Subroutine  to  assemble  ATLS  control  codes  into  a block  to 

be  written  to  the  control  tape  file. 

Calling  Sequence  and  Arguments: 

CALL  BUILD(C.V) 
where: 

C - an  ASCII  character  indicating  the  control  code  type 
V - a real  number  with  the  value  of  that  code. 

Called  By:  PLYGEN  et.  al. 

Subroutines  Called:  FILLB 

MOVB 

Diagnostics:  STOP  177777  - Invalid  C character 

STOP  177776  - Buffer  overflow. 

Detailed  Description:  This  subroutine  starts  by  searching  an  internal 

table  of  valid  control  code  type  characters  for  a match  on  the  first  argu- 
ment. When  a match  is  found,  control  is  transferred  to  the  appropriate 
routine  to  service  this  control  code.  Each  service  routine  scales  the  real 
number  by  the  appropriate  factor  of  ten  and  formats  it  into  a string  of 
ASCII  characters  using  the  ENCODE  facility  of  the  FORTRAN  system.  The  char- 
acters are  then  moved  into  the  next  sequentially  available  bytes  of  the  out- 
put buffer  and  the  routine  returns  to  the  caller. 
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Purpose:  Function  subroutine  to  read  a paper  tape  and  pass  the  charac- 

ters back  to  the  calling  routine. 

Calling  Sequence  and  Arguments: 

I = CHAR(  ) 

where  the  returned  value  indicates: 

ASCII  character  if  I.GT.O 
End-of-block  encountered  if  I.EQ.O 
Physical  end-of-tape  encountered  if  I.LT.O 

Called  By:  Many 

Subroutines  Called:  EIA2A 


Diagnostics : None 

Detailed  Description:  All  five  main  programs  call  this  subroutine 

either  directly  or  indirectly.  This  routine  is  set  up  so  that  it  can  read 
either  paper  tape  or  system  data  storage  with  the  codes  in  either  EIA  or 
ASCII. 

Upon  entry,  the  subroutine  checks  to  see  if  it  has  been  entered  pre- 
viously within  this  program  execution.  If  not,  it  executes  a block  of  one- 
time code  to  perform  the  following  initialization  functions: 

• Set  a flag  so  the  rest  of  the  initialization  is  not  exe- 
cuted again. 

• I NIT  and  OPEN  a dataset  with  the  logical  name  IN. 

• Read  the  first  block  of  data  and  initialize  the  local 
buffer  pointer. 


• Scan  for  the  first  end-of-block  character  and  determine 
whether  the  tape  code  is  EIA  or  ASCII. 

• Set  the  code  type  flag  based  on  the  first  EOB  code. 

The  remainder  of  the  subroutine  is  executed  for  every  call.  ASCII 
characters  are  taken  one  at  a time  and  returned  to  the  calling  program. 

When  the  input  buffer  is  exhausted,  a new  buffer  is  read  and  converted  from 
EIA  to  ASCII  if  necessary.  Before  returning,  the  current  character  is  matched 
with  the  entries  of  a table  of  characters  to  ignore.  If  a match  is  found, 
the  routine  loops  back  and  gets  a new  character.  End-of-block  characters 
cause  a binary  zero  to  be  returned  and  if  an  end-of-file  condition  is  en- 
countered on  the  input  dataset,  a binary-1  is  returned. 
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3.5  CLAMP 


Purpose:  A convenient  routine  that  generates  a single  block  with 

appropriate  "M-codes"  to  turn  the  tape  clamp  on  and  off. 

Calling  Sequence  and  Arguments: 

CALL  CLAMP(L) 
where: 

L is  a logical  variable. 

.TRUE,  generates  a clamp  on  code. 

.FALSE,  generates  a clamp  off  code. 

Called  By:  PLYGEN 

Subroutines  Called:  BUILD 

PUNCH 


Diagnostics : None 

Detailed  Description:  PUNCH  is  called  to  close  out  the  currently 

filled  buffer.  If  the  argument,  is  .TRUE,  then  BUILD  is  called  to  generate 
a M-15  code.  If  the  argument  is  .FALSE,  then  BUILD  is  called  to  generate 
a M-14  code. 
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SUBROUTINE  CLAMP(  L) 
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3.6  DELAY 


Purpose:  A convenient  routine  that  generates  a single  block  with 

appropriate  "G"  and  "F"  codes  for  a specified  time  delay. 

Calling  Sequence  and  Arguments: 

CALL  DELAY(T) 
where: 

T is  a real  variable  containing  the  time  delay  in  seconds. 

Called  By:  PLYGEN 

Subroutines  Called:  PUNCH 

BUILD 


Diaqnosti cs : None 

Detailed  Description:  PUNCH  is  called  to  flush  the  current  block. 
BUILD  is  called  to  generate  a G04  code  and  called  again  to  generate  the 
appropriate  F-code.  PUNCH  is  called  again  to  write  out  the  buffer. 
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3.7  EOT 


Purpose:  Subroutine  to  close  out  a control  tape  file. 

Calling  Sequence  and  Arguments: 

CALL  EOT 

Called  By:  PLYGEN 

Subroutines  CALLED:  PUNCH 

BUILD 


Diagnostics:  None 

Detailed  Description:  Subroutine  PUNCH  is  called  to  write  any  current 

line  to  the  control  tape  file.  An  M30  code  is  written  to  the  control  tape 
file  and  PUNCH  is  called  again  to  write  the  line.  A FORTRAN  ENDFILE  is 
performed  to  close  out  the  control  tape  file  and  control  is  returned  to  the 
calling  routine. 
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3.8  ERR 


Purpose:  Subroutine  to  log  error  messages  on  the  line  printer. 

Calling  Sequence  and  Arguments: 

CALL  ERR(NC0DE, IRTRN) 
where: 

NCODE  - An  integer  error  code  number. 

IRTRN  - Return  flag. 

IRTRN  .NE.  0 causes  return  to  caller. 

IRTRN  .EQ.O  causes  program  to  terminate. 


Called  By:  PLYGEN 

Subroutines  Called:  EXIT 

Diagnostics : ***ERR0R  n*** 

PLYGEN  TERMINATING 

Detailed  Description:  Subroutine  ERR  prints  the  error  code  number  on 

the  line  printer  then  tests  the  second  argument  to  determine  whether  to  re- 
turn to  the  caller  or  terminate  execution. 
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3.9  GET 


Purpose:  Subroutine  to  assemble  a block  of  data  from  a control  tape 

into  internal  form. 

Cal  1 i r __  id  Arguments: 

CALL  GET 

Called  By:  Many 

Subroutines  Called:  CLR  MOV 

CHAR  A1A2 
FILL 

Diagnostics:  None 

Detailed  Description:  Data  is  retrieved  from  this  subroutine  via  data 

arrays  stored  in  common.  These  arrays  are  first  cleared.  The  subroutine  then 
gets  a single  character  (via  CHAR)  which  it  assumes  to  be  a control  code.  It 
searches  its  table  of  valid  control  code  characters  and  dispatches  to  a par- 
ticular routine  based  on  the  match  found.  The  number  following  the  control 
code  is  assembled  into  a temporary  work  buffer  and  converted  into  internal 
form  using  a FORTRAN  DECODE  statement.  This  process  continues  until  an 
end-of-block  character  is  encountered  and  control  is  returned  to  the  caller. 
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3.10  HEAD 


Purpose:  A convenient  routine  that  generates  a single  block  with  ap- 

propriate "M-codes"  to  turn  the  ATLS  tape  head  on  and  off. 

Calling  Sequence  and  Arguments: 

CALL  HEAD(L) 
where: 

L is  a logical  variable. 

.TRUE,  generates  a head  on  code. 

.FALSE,  generates  a head  off  code. 

Called  By:  PLYGEN 

Subroutine  Called:  BUILD 

PUNCH 


Diagnostics:  None 

Detailed  Description:  PUNCH  is  called  to  close  out  the  currently 

filled  buffer.  If  the  argument  is  .TRUE,  then  BUILD  is  called  to  generate 
a M62  code.  If  the  argument  if  .FALSE,  then  BUILD  is  called  to  generate  a 
M63  code.  PUNCH  is  called  again  and  the  routine  returns  to  the  caller. 
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SUBROUTINE  HEAD(L) 
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3.11  MOVE 


Purpose:  Subroutine  to  generate  block  of  control  tape  containing  up 

to  six  axes  of  data  and  an  N-code. 

Calling  Sequence  and  Arguments: 

CALL  MOVE  (X,Y,Z,A,C,D,N) 
where: 

X,Y,Z,A,C,D  are  real  variables  containing  the 
respective  axis  information. 

N is  an  integer  variable  containing  the  N-code. 

Called  By:  PLYGEN 

Subroutines  Called:  NULARG 

PUNCH 

BUILD 

Diagnostics : None 

Detailed  Description:  PUNCH  is  called  to  flush  the  buffer.  Each  argu- 

ment is  tested  to  see  if  it  exists  using  subroutine  NULARG  and  if  it  does, 
BUILD  is  called  with  the  appropriate  parameters.  PUNCH  is  called  again  to 
close  out  this  block. 
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3.12  MSG 


Purpose:  To  print  an  alpha-numeric  on  the  graphic  terminal. 

Calling  Sequence  and  Arguments: 

CALL  MSG(STRING) 
where: 

STRING  is  a byte  containing  up  to  23  characters 
terminated  by  a character  of  binary  zeros. 

Called  By:  ATLSGR  et.  al. 

Subroutines  Called:  ANMODE  NEWLIN 

ANCHO  BELL 


Diagnostics:  None 

Detailed  Description:  The  graphics  subroutines  are  called  to  prepare 

the  terminal  for  character  output  and  to  write  out  the  argument  string. 

The  cursor  is  positioned  to  a new  line  and  the  bell  on  the  terminal  is  rung 
as  an  audible  signal  to  the  operator  to  respond. 
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SUBROUTINE  »!C(STRINC) 


3.13  PCHAR/PCLOSE  (Assembly  Language) 


Purpose:  Subroutine  to  punch  binary  characters  to  paper  tape. 

Calling  Sequence  and  Arguments: 

CALL  PCHAR(BYTE) 
where: 

BYTE  is  any  8-bit  character. 

Called  By:  PTDUMP 

Subroutines  Called:  None 


Diagnostics:  None 

Detailed  Description:  Since  PDP-11  FORTRAN  does  not  support  punching 

the  arbitrary  sequences  of  characters  required  to  form  an  ATLS  control  tape, 
this  subroutine  is  written  in  assembly  language.  On  first  entry,  some  one- 
time code  is  executed  to  INIT  and  OPEN  the  logical  dataset  OUT.  Subsequent 
entries  put  bytes  one  at  a time  into  an  output  buffer  and  when  the  buffer 
is  filled,  it  is  written  out. 

PCLOSE  is  an  alternate  entry  that  must  be  called  prior  to  terminating 
execution  of  the  calling  program.  This  entry  writes  out  the  partially 
filled  local  buffer  and  closes  the  dataset. 
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3.14  PUNCH 


Purpose:  Subroutine  to  write  out  an  accumulated  block  of  control 

tape  data. 

Calling  Sequence  and  Arguments: 

CALL  PUNCH 

Called  By:  PLYGEN  et.  al. 

Subroutine  Called:  None 

Detailed  Description:  Arguments  are  passed  between  PUNCH  and  BUILD  via 

common.  Upon  entry,  the  buffer  pointer  is  used  to  calculate  the  length  of 
the  output  string.  If  this  length  is  greater  than  zero,  the  buffer  is 
written.  The  buffer  pointer  is  then  reset  to  the  beginning  of  the  buffer 
and  a return  is  made  to  the  main  program. 
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3.15  RESET 


Purpose:  Subroutine  that  accepts  operator  input  to  modify  the  graphic 

transformation  matrices  used  in  the  graphics  program. 

Calling  Sequence  and  Arguments: 

CALL  RESET 

Called  By:  ATLSGR 

Subroutines  Called:  ABS 

MOVABS 
MSG 

ANSWER 
MOVB 
R8MULT 
VCURSR 

Diagnostics:  ** INVALID  COMMAND** 

Detailed  Description:  The  transformation  matrices  are  passed  between 

SETUP,  RESET,  and  ATLSGR  in  common.  Subroutine  RESET  asks  the  operator  to 
enter  a command  and  waits  for  a response.  The  single  letter  starting  the 
response  is  decoded  as  a unique  command  code  and  an  internal  table  of  valid 
characters  is  searched  for  a match.  A match  causes  control  to  be  transferred 
to  a routine  that  decodes  the  remaining  input  as  needed  and  makes  the  re- 
quested matrix  modifications. 

All  commands  except  two  go  back  for  more  input  from  the  operator. 

These  special  commands  are: 

1.  "D"  (draw)  - returns  control  to  caller. 

2.  "E"  (exit)  - terminates  execution. 
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MARK  (SAVE)  CURRENT  STATUS 


PHASE  USED  FREE 
DECLARATIVES  99622  14434 
EXECUTABLES  91469  13396 
ASSEMBLY  91666  18939 


3.16  SETUP 


Purpose:  Subroutine  to  initialize  graphic  transformation  matrices. 

Calling  Sequence  and  Arguments: 

CALL  SETUP (I FLAG) 
where: 

IFLAG.NE.O  causes  a special  diagnostic 
dump  to  the  line  printer. 

Called  By:  ATLSGR 


Subroutines  Called: 

GET 

R8M0VE 

CHAR 

R8MULT 

R8ID 

DELETE 

Diagnostics:  None 

Detailed  Description:  All  transformation  matrices  are  initialized  except 

for  the  initial  linear  transform  matrix  (T).  T is  initialized  by  scanning 
through  the  input  control  tape  file  and  calculating  average  X,  Y and  Z de- 
viations. These  averages  are  used  to  roughly  center  the  picture  for  its 
first  drawing. 
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3.17  SHEAR 


Purpose:  Subroutine  to  output  a shear  code  to  the  control  tape. 

Calling  Sequence  and  Arguments: 

CALL  SHEAR 

Called  By:  PLYGEN 

Subroutines  Called:  PUNCH 

BUILD 


Diagnostics:  None 

Detailed  Description:  PUNCH  is  called  to  flush  the  buffer.  BUILD 

is  called  to  generate  an  M80  code  and  PUNCH  is  again  called  before  returning. 
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3.18  SLIT 


Purpose:  A convenient  routine  that  generates  a single  block  with  the 

appropriate  "M-code"  to  turn  the  tape  slitters  on  or  off.  (Boeing  has  modi- 
fied ATLS  so  that  the  slitter  functions  operate  a rewind  function  on  the 
fiberglass  tape  supply  reel.) 

Calling  Sequence  and  Arguments: 

CALL  SLIT(L) 
where: 

L is  a logical  variable. 

.TRUE,  generates  a slitter  on  code. 

.FALSE,  generates  a slitter  off  code. 

Called  B.y : PLYGEN 

Subroutines  Called:  BUILD 

PUNCH 


Diagnostics:  None 

Detailed  Description:  PUNCH  is  called  to  close  out  the  currently  filled 

buffer.  If  the  argument  is  .TRUE,  then  BUILD  is  called  to  generate  a M64 
code.  If  it  is  .FALSE,  then  a M65  code  is  generated.  PUNCH  is  called  again 
before  returning. 
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4.  SUBROUTINES  FROM  IITRI'S  GENERAL  UTILITY  LIBRARY 


A1A2 

CLR 

CLRB 

CMPB 

DELETE 

El  A2A 

FILL 

FILLB 

MOV 

MOVE 

MRL 

NULARG 

R8ID 

R8M0VE 

R8MULT 


- Pack  one  ASCII  character  per  word  into  two  per  word. 

- Clear  word  arrays  to  binary  zeros. 

- Clear  byte  arrays  to  binary  zeros. 

- Compare  byte  arrays. 

- Delete  the  file  associated  with  a FORTRAN  logical  unit 
number  from  the  system  data  storage. 

- Convert  EIA  codes  to  ASCII  codes. 

- Fill  word  arrays  with  a constant. 

- Fill  byte  arrays  with  a constant. 

- Move  word  arrays  in  memory. 

- Move  byte  arrays  in  memory. 

- Convert  ASCII  strings  to  binary  man-readable  leader  strings. 

- Determine  if  the  caller  was  called  with  a non-existent  argument. 

- Initialize  a REAL*8  array  with  the  identity  matrix. 

- Move  a REAL*8  matrix  in  memory. 

- Multiply  two  REAL*8  matrices. 
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5.  SUBROUTINES  FROM  PDP-11  UTILITY  LIBRARY 


ABS 

ASSIGN 

COS 

DATE 

EXIT 

SIN 

SQRT 

TIME 


Get  real  absolute  value. 

Associate  a FORTRAN  logical  unit  number  with  a filename 
of  a file  stored  in  the  system  data  storage. 

Cosine  function. 

Retrieve  current  date  in  ASCII. 

Terminate  Execution. 

Sine  function. 

Square  root  function. 

Retrieve  current  time  in  ASCII. 
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SUBROUTINES  FROM  GRAPHIC  SUPPORT  LIBRARY 


ANCHO  - 
ANMODE  - 
BELL 

DRWABS  - 
DRAWA  - 
ERASE  - 
FINITT  - 
INITT  - 
MOVABS  - 
MOVEA  - 
NEWLINE  - 
SWINDO  - 
VCURSR  - 

VWINDO  - 
TINPUT  - 


Output  an  alpha-numeric  character. 

Condition  graphics  terminal  for  alpha-numeric  output. 

Ring  bell  on  terminal. 

Draw  a line  using  real  screen  coordinates. 

Draw  a line  using  virtual  screen  coordinates. 

Erase  the  screen. 

Final  cleanup  processing. 

Initialization  processing. 

Move  the  graphics  cursor  using  real  screen  coordinates. 

Move  the  graphics  cursor  using  virtual  screen  coordinates. 

Position  cursor  on  beginning  of  next  input  line. 

Define  the  available  real  viewing  area  on  the  display  screen. 

Obtain  virtual  screen  coordinates  for  the  graphics  input 
cross-hair  cursor. 

Specify  virtual  coordinate  range  for  the  real  screen  window. 
Get  a keyboard  input  character. 
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PLYGEN  List  Output  Showing  Input  Language  For  "Root  Loop"  and 
Mandrel  Descriptions. 


PLYGEN  V1.0 


27- AUG- 76  13:49:38  PAGE  1 


* *aaaa*aaaaaa*aa*a*aaaa*aaaa*aa******aaaa*aa****aa*aaaaaaaa***aaaaaaaaaaaaaaaaaa 


* a 

* CH47FRB  Root  Loop  Program.  a 

* * 

* Data  taken  from  Boeing  Vertol  drawing  *114R1710  * 


aaaaaa*a**aa***aa*a*aaaaaa****a**»******aa*aaaaaa*aaaaaaa****aaaa**a***a»aa***aa 

* 

a 

1 ) CYLTRAVEL  0 

2)  THICKNESS  .0095 

3)  MANDREL! 1 ) 0.  0,  -1.75,  3.5 

4)  MANDREL! 2)  -29.5,  0.  -1.73,  -24.830,  -19.330.  -12.330 
a 

5)  REFSTATION  29.5 


* 


6) 

PLY 

i 

= 

34.5 

7) 

PLY 

38 

= 

43.0 

8) 

PLY 

71 

= 

50.5 

9) 

PLY 

72 

= 

53.0 

10) 

PLY 

80 

= 

60.0 

1 1) 

PLY 

88 

= 

65.0 

12) 

PLY 

99 

3 

70.0 

13) 

PLY 

1 10 

= 

77.0 

14) 

PLY 

122 

= 

117.0 

15) 

PLY 

126 

= 

124.0 

16) 

PLY 

127 

= 

134.0 

17) 

PLY 

133 

= 

306.0 

18) 

PLY 

134 

= 

363.0 

19) 

PLY 

* 

144 

= 

363.0 

20) 

BREAK  5 
* 

1 

21) 

E 

N 

D 

TOTAL  FIBERGLASS  TAPE  LENGTH:  PART  1 = 108.2  FT 

PART  2 = 846.3  FT 


122 


2.  Sample  Graphical  Output  from  ATLSGR: 


• Four  Similar  Views  of  IITRI  Test  Tape. 

• Four  Views  of  Original  Boeing  Tape. 
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CH47FRB  Root  Loop  (IITRI  genera 
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47FRB  Root  Loop  (IITRI  generated 


ENTER  COVttlANO 
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CNTCR  COmiAND 


128 


ENTER  COMMAND 


3.  Control  Tape  Listings  Produced  by  ATLSLI 

• IITRI  Test  Tape  - First  50  Plies. 

• IITRI  Test  Tape  - Ply  51  through  Ply  144. 

• Original  Boeing  Tape  - First  50  Plies. 

• Original  Boeing  Tape  - Ply  51  through  Ply  144. 
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